home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TPBIND.ARJ / LDB3.PAS < prev   
Pascal/Delphi Source File  |  1991-05-22  |  632b  |  48 lines

  1.  
  2.     program ldb3;
  3.         uses bind;
  4.  
  5.  
  6.     type
  7.  
  8.             YourRecPtr = ^YourRec;
  9.         YourRec = record
  10.             name : ^string;
  11.             end;
  12.  
  13.  
  14.     procedure display(D, M, A : pointer); far;
  15.     begin
  16.             writeln(YourRecPtr(D)^.name^)
  17.         end;
  18.  
  19.         const
  20.             s : string = 'Pat Programmer';
  21.  
  22.  
  23.         var
  24.             B : CopyBinder;
  25.                 R : YourRec;
  26.                 i : word;
  27.  
  28.     begin
  29.             B.Init(sizeof(YourRec));
  30.  
  31.  
  32.         R.name := @s;
  33.  
  34.         for i := 1  to 10 do
  35.             B.ins(@R);
  36.  
  37.         B.forEach(display,nil,nil);
  38.  
  39.         B.allDel;
  40.  
  41.                 B.Done;
  42.  
  43.                 readln
  44.  
  45.         end.
  46.  
  47.         
  48.